home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir37
/
pull70.zip
/
PULLSHEL.ZIP
/
PULLSHEL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-06-21
|
1KB
|
41 lines
{ ========================================================================== }
{ PullShel.pas - A shell program to develop any ver 7.0, 06-21-93 }
{ application of pull-down menus. }
{ Copyright (c) 1988,1993 James H. LeMay, All rights reserved. }
{ ========================================================================== }
{$i pulldefs.inc }
{$M 16384,14000,14000 }
program PullShell;
uses
Crt,Qwik,Wndw,Pull,
PullWork; { You MUST include this unit! }
procedure DisplayScreen;
begin
WWrite ( 1, 1,'PULLSHELL v7.0 Multi-level Pu'+
'll-down Menus Copr 1993 J H LeMay');
ShowTopLine;
SetWindowModes (PermMode);
MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,White+BlueBG,DoubleBrdr,
Window1);
SetWindowModes (0);
WWriteC ( 2,'This is my first pull-down menu program');
end;
begin
{ Qsnow := false; }
InitPull (LightGray,false); { <<-- Be sure you do this!! }
DisplayScreen;
GotoKeyDispatcher; { <<-- All keyboard entries go through here! }
AccessWindow (Window0);
WClrScr;
WGotoRC (CRTrows,1);
SetCursor (CursorInitial); { Restore start up cursor }
end.